home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk168 / asmmacros / puretemplate < prev    next >
Encoding:
Text File  |  1995-03-19  |  954 b   |  38 lines
  1.  
  2.      INCLUDE "AsMac:CoreMacros.i"
  3.  
  4.      INCLUDE "AsMac:AllocUDS.i"
  5.      INCLUDE "AsMac:FreeUDS.i"
  6.  
  7.  
  8.      DefineSections [<ProgramName>]
  9.  
  10.  
  11.  
  12. ProgStart:
  13.      AllocUDS UDS_Size        ; Allocate memory for uninitialized data
  14.      BEQ AllocUDSFail         ;  storage.
  15.  
  16.      ::::::::::::::::::::::::::::::::::::::::::::
  17.      ::::::::::::::::::::::::::::::::::::::::::::
  18.      :::                                      :::
  19.      :::  MAIN PART OF THE PROGRAM GOES HERE  :::
  20.      :::                                      :::
  21.      ::::::::::::::::::::::::::::::::::::::::::::
  22.      ::::::::::::::::::::::::::::::::::::::::::::
  23.  
  24.      FreeUDS UDS_Size         ; De-allocate the UDS memory.
  25.      CLR.L D0                 ; Exit the program with return code of zero.
  26.      RTS
  27.  
  28.  
  29. AllocUDSFail:
  30.      MOVE.L #100,D0           ; Exit the program with return code indicating
  31.      RTS                      ;  that AllocUDS failed.
  32.  
  33.  
  34. UDS_Size       EQU  DefDSPointer
  35.  
  36.  
  37.      END
  38.